home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / basic2 / pro7 / wdemo2.bas (.txt) < prev   
Encoding:
QuickBASIC Tokenized Source  |  1989-01-01  |  3.6 KB  |  89 lines
  1. @    GScrollL8
  2. scrollu
  3. lines
  4. scrolld
  5. scrollL
  6. scrollr
  7. OpenW
  8. border
  9. segment
  10. closew
  11. saveW
  12. FillW
  13. offset#
  14. stringAddress`
  15. CloseLastWK
  16. int3S
  17. SetViewPage
  18. SetViewW
  19. @    defborder
  20. ReadScreen
  21. Printt
  22.     PrinttEOL
  23. PrinttCR
  24. PrintW
  25.     PrintWEOL
  26. PrintWCR
  27. PrintM
  28.     PrintMEOL
  29. PrintMCR
  30. HaltPrintMain
  31. Monochrome
  32. InitWh
  33. DebugWG
  34. PrintI
  35. PrintS]
  36. PrintH
  37. PrintwI
  38. PrintwS
  39. PrintwH
  40. SwapAttr
  41. ChangeAttr
  42. ReadScreenDemo
  43. NMALLOC
  44. instr
  45. @    PrintMain
  46. HaltPrintt
  47. HaltPrintW
  48. declare.bas'
  49.  Quick Reference: 
  50. Scrollx
  51.  (attribute, #lines, TR, LC, BR, RC)
  52.  Scroll
  53. SaveW
  54.  (segment, TR, LC, BR, RC)
  55.  Save window 
  56. OpenW
  57.  (Border, Attribute, Segment, TR, LC, BR, RC)  Save & Blank
  58. CloseW
  59.  (Segment, TR, LC, BR, RC)
  60.  Restore window 
  61. CloseLastW  ()
  62. , Restore last 
  63. FillW
  64.  (offset, varptr(x$(L))
  65.  Prints strings 
  66. SetViewPage (page)
  67. ( Set page for windows 
  68. DefBorder   (x$)
  69. * Create a border
  70. PrintErr
  71.  (0)  [0 to suppress msg, 1 to print]
  72.  Turn off error msg.=
  73. , Call int 3
  74. ReadScreenDemo
  75. ---Read a string---0
  76.  Save the top half of the screen
  77. Read a string from the top of the screen, cleared the screen, now press enter to print the string"
  78. Copy it to the bottom half
  79. -Find a string on the screen
  80. Hello"
  81. Hello"P
  82. Hello was printed at line 
  83.     Column "
  84. Used INSTR to locate a string on the screen"
  85. -Read a number from the screen
  86.     12345      "
  87. The value at 4,25 was 
  88. Used ReadScreen to read a number from the screen
  89.